home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mem / MPW Helpers / Scripts / lz < prev    next >
Encoding:
Text File  |  1992-10-10  |  263 b   |  11 lines  |  [TEXT/MPS ]
  1. if "`SizeWindow "{Active}"`" =~ /?«10» ([0-9]+)®1≈/
  2.   set width {®1}
  3. else
  4.   echo 'Couldn'∂''t match output from SizeWindow'
  5. end
  6. evaluate width = {width} ÷ 6 - 4
  7. #set echo 1
  8. set NoLineFlush 1 ; export NoLineFlush
  9. files {"Parameters"} | colm -w {width}
  10. #set echo 0
  11.